10 OPEN1,8,8,"@0:ALT.LDR.O,P,W"
20 SYS700
30 .OPT O1
40 .BAS
100 REM **************************
110 REM *                        *
120 REM *  HIRES PICTURE LOADER  *
130 REM *    FOR COMMODORE 64    *
140 REM *                        *
150 REM *                        *
160 REM *    DON WHITE           *
170 REM *    47 ARIEL COURT      *
180 REM *    NEPEAN, ONTARIO     *
190 REM *    K2H 8J1             *
200 REM *                        *
210 REM *    613-829-2082        *
220 REM *                        *
230 REM **************************
240 REM
250 PRINT"[147]
260 [139]CT[177]0[167]340
270 [156]:[140]
280 CT[178]0:[143] INITIALIZE COUNTER
290 NN[178]20:[143] # PICTURES TO LOAD
300 V[178]53248:[151]V[170]17,59:[151]V[170]24,25:[143] HIGH RES SCREEN
310 :
320 [134]PI$(NN),CL(NN):[129]I[178]1[164]NN:[135] PI$(I),CL(I):[130]:[137]400
330 :
340 [153]"LOAD"
350 [161]ZZ$:[139]ZZ$[178]"S"[167][151]V[170]17,27:[151]V[170]24,21:[153]"LOAD":[128]
360 [151]53280,[181](16[172][187](1))
370 [151]828,CL(CT)
380 [158]"COLFILL"
390 [129]I[178]1[164]2000:[130]:[153]"LOAD"
400 [153]"LOAD":CT[178]CT[170]1:[139]CT[177]NN[167]270
410 [147] PI$(CT),8,1:[143] LOAD PICTURE ON HIRES SCREEN
420 :
430 [143] NAMES & COLOURS OF PICTURES
440 :
450 [131] SPIRAL.1,7,SUE,28,KAREN,28,SNOOPY,12,ALBERT,235
460 [131] DOLLAR,80,DIP,16,SNAIL,7,DES.1,5,7-3HILL,6
470 [131] MUSIC,2,MAP,16,DIANE,48,WILLY,112,RACCOON,144
480 [131] SINCOS1,3,WATCH,16,WINSTON,28,MICROMETER,139,NUDE,28
490 [128]
500 ; ASSEMBLER
510 SCRNLO [178] $00FB
520 SCRNHI [178] $00FC
530 COLOUR [178] $033C
540 COLFILL [178] [172]
550 LDA COLOUR
560 LDY #00
570 STY SCRNLO
580 LDX #04
590 NXPAGE STX SCRNHI
600 [130] STA (SCRNLO),Y
610 INY
620 BNE [130]
630 INX
640 STX SCRNHI
650 CPX #$08
660 BNE NXPAGE
670 RTS